home *** CD-ROM | disk | FTP | other *** search
/ Great Canadian Scientists / GCS_CD.iso / pc / gcsdata / menus_o.dxr / 00105_Startup Screen (BoxUp) Loop.ls < prev    next >
Encoding:
Text File  |  1996-09-08  |  312 b   |  15 lines
  1. on exitFrame
  2.   global BoxUp
  3.   BSetup(18, 19)
  4.   set the keyDownScript to "KeyCheck"
  5.   set the mouseDownScript to "BoxUp"
  6.   set the mouseUpScript to "BoxUp"
  7.   set the checkBoxAccess to 1
  8.   if BoxUp = 0 then
  9.     set the editableText of sprite 17 to 0
  10.   end if
  11.   cursor(-1)
  12.   CheckHilite(18, 19)
  13.   go(the frame)
  14. end
  15.